home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / GWAda 1.5.1 / GW-Ada⁄Ed-MacProgs / GWU Demos / chop.adb next >
Encoding:
Text File  |  1993-02-03  |  253 b   |  21 lines  |  [TEXT/????]
  1. --::::::::::
  2. --chop.adb
  3. --::::::::::
  4. PACKAGE BODY Chop IS
  5.  
  6.   TASK BODY Stick IS
  7.  
  8.   BEGIN
  9.     
  10.     LOOP
  11.       SELECT
  12.         ACCEPT Pick_Up;
  13.         ACCEPT Put_Down;
  14.       OR
  15.         TERMINATE;
  16.       END SELECT;
  17.     END LOOP;
  18.  
  19.   END Stick;
  20.  
  21. END Chop;